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EDTSWFRBUKT - make a bucket current 16-Se -1 VAX-11 Bliss-32 V 1 
12- “320-198 95:08 Ss UESUMBMASTERcCeDT secSwereuKT.eLIsn (14 
EM clio make a bucket current’ , . tan ih wn testa 
make a bucke e current bucke 
we = ‘v04-000' ! File: WFRBUKT.BLI Edit: JBS1005 
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BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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i® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
+ eePOkat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL eo NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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{ ABSTRACT: 
Make a specified bucket the current bucket. 
i ENVIRONMENT: Runs at any access mode - AST reentrant 
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! FACILITY: EDT == The DEC Standard Editor 
| 
| 
| 
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Bye i AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
ope {| MODIFIED BY: 
9 j 008 - Original. DJS 23-Feb-1981. This mofule. ves created by 
4 extracting routine READ tee i B Sento Ee ‘ 
04 1- m-f - regularize headers. 
004 3 - Rot to use EDTSWOR M3 ' are *15-Feb-1982 
9 1-004 - Add Literals for callable parameters. STS 08-Mar-1982 
008 1-005 - Improve the appearance of the Listing. JBS 20-Jun-1983 
05 
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ity make a bucket current Ib-5¢ 300-1382 96: 92: +f 


1 XSBTTL ‘Declarations’ 


TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSWF_MAKECUR : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
RIF ZBLISS (BLISS32) 
ZTHEN 


REQUIRE "EDTSRC:SYSSYM'; 
aFI 


MACROS: 
! NONE 
EQUATED SYMBOLS: 
EXTERNAL LITERAL 
EDT$K_PUT, 
EDTSK~GET: 
OWN STORAGE: 
NONE 


EXTERNAL REFERENCES: 
In the routine 


1 °SRCSWFRBUKT. BLI;1 ‘mes 5 
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4 10 
SWF RBUKT EDTSWFRBUKT = make a bucket current 16-Sep-1984 02:09: VAX-11 Bliss-32 V4.0-74 Page 3 
-000 EDTSSWF_MAKECUR = make a bucket current 1 7300-1382 95 393538 DISKSVMSMASTER: CEDT. SRC JWFRBUKT.BLI;1 : (3) 
98 ZSBTTL ‘EDTSSWF_MAKECUR = make a bucket current’ 
238 GLOBAL ROUTINE EDTSSWF_MAKECUR ( ! Make a specified bucket the current bucket 
H ; K aawue ' Number of the bucket to make current 
: = 


70 14+ 
At FUNCTIONAL DESCRIPTION: 
f 5 This routine insures that the bucket number passed as a parameter is the 


Se 


current bucket to the cache (marking it as modified if necessary) and 
make the new bucket current by bringing it into the cache if necessar;. 


FORMAL PARAMETERS: 
BUKT_NUM the number of the bucket to read. 
IMPLICIT INPUTS: 
EDTSSZ_WF _DESC 
A BUK 


EDTSSA_WK~ 
EDT$$G_Wk~CURBUK 
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current bucket. If it is not already the current bucket then return the 

i 

i 

i 

i 
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i 

i 

EDT$$G_WK_MODFD 

i IMPLICIT OUTPUTS: 

i EDT$$Z_WF_DESC 

: EDTSS$A_WK_BUK 

; EDTS$$G_WK_CURBUK 

EDT$$G_WK_MODFD 

} 

} 

1 

. 
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ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
May write and read the work file, especially if the cache is small. 
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38 

44 BEGIN 

41 arene, ROUTINE 

ri} EDTSSCALLWIO; 

44 wie yi 

45 7 EDT$$Z_WF_DESC : BLOCK C, BYTE), ' descriptor for workfile record 

46 74 EDTSSA_WK BUK : ! Pointer to current bucket 

4 74 REF BCOCK CWF_BUKT_SIZE, BYTE] FIELD (WFB FIELDS) 

48 74 EDTS$$G_WK_CURBUK, ' NumBer of the current bucket : 
$3 me EDTS$$G_WK_MODFD; ! Flag indicating bucket was modified 
51 750 2 !¢ 
26 751 ' Do not read if we are reading the current bucket 
5 752 !e 
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N 10 
EDTSWF RBUKT EDTSwF SUA - make a bucket current 16-Sep-1984 02:09: VAX-11 Bliss-32 V4.0-7 Pa 4 
04-000 EDTSSWF_MAKECUR = make a bucket current 12-8681 382 95:08:38 DISKSVMSMASTER: aS i sre WFRBUKT.BLI;1 — (3) 
7 


if (,EDTS$G_WK_CURBUK NEQ .BUKT_NUM) 
BEGIN 


'+ 
Kae the current bucket as modified, if it has been. 
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14 
o f Read the new bucket, possibly from the cache. 
66 és EDT$$G_WK CURBUK = .BUKT_ 
6 EDTSSCALLQIO (EDTS$K_G GET. NED ES$G WK CURBUK, EDT$$Z_WF_DESC); 
8 ve EDTSS$A_WK_BUK = .EDTS$Z_wF_DESC CDSCSA_ POINTE RJ; ! get address of record 
8 4 ; The new bucket has not yet been modified. 
0 e EDTS$$G_WK_MODFD = 0; 
8 f END; 
0775 END; ! of routine EDTSSWF_MAKECUR 
-TITLE EDTSWFERBUKT EDTSWFRBUKT - make a bucket current 
-IDENT \vV04-000\ 
-EXTRN EDTSK_PUT, EDTSK_GET 
~EXTRN EDISSCALLWIO. EDTS$$2_WF DESC 
-EXTRN EDTSSA_WK_BUK, EDTSSG_ UR CURBUK 
EXTRN EDT$$G_WK “RoDip® 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


003¢ TSSWF _MAKECUR, Save R2,R3,R4,R5 


00000 ENTRY ED ; 
55 000000006 00 9€ 00002 OVAB EDTSSCACLWIO, R5 : 
54 900000006 00 9E 00009 MOVAB EDT$$G_WK_MODFD, R4 : 
53 000000006 9E 90019 MOVAB EDT$$G~ Wk =CURBUK R3 : 
52 000000006 09 4 001 MOVAB EDT$$2Z~WF-DESC, ; 
50 63 DO OOO1E MOVL  EDTS$$G~ uke PERBUK RO + 0754 
04 AC 50 D1 00021 CMPL RO, BURT_NUM : 
29 13 000 3 BEQL 2$ : 
08 4 €9 90 BLBC EDT$$G_WK_MODFD, 1$ : 0761 
5 6B A PUSHR MR “ROS : 
000000006 8F DD 000 PUSHL agDTs PUT : 
65 3 FB 00 CALLS SKPUT wi0 : 
63 04 AC 00 00035 158: OVL Buk KT_NUM, ED TS$G_ WK _CURBUK : 0766 
3¢ 0D 00 PUSHL R : 0767 
DD B PUSHL EDT$$G_WK_CURBUK : 
000000006 8F DD ; PUSHL ‘ DT$K~ a : 
65 3 FB i CALLS DT$$CALLWI1O 
000000006 00 06 A2 D 46 MOVL tots 2_WF OES Cee, EDTS$A_WK_BUK : 0768 
64 b4 uF CLRL EDT S$G~WK“MODFD ; Ore 
4 00050 28: RET : 077 


IF .EDTS$G_WK_MODFD THEN EDTSSCALLWIO (EDTSK_PUT, .EDTS$$G_WK_CURBUK, EDTS$$Z_WF_DESC); 
; Routine Size: 81 bytes, Routine Base: _EDTSCODE + 0000 


EBISHEBOUKT —ERTEYEROUET c pake w buchos current | UEBepr9B4 02:09:52 YARED BL SRteR2 Uh THe 1 F006 cof 
: 1 wR pate: 


EDT Sur RAKECUR’ = Sake 8 buket corront ie 33-1 obec 93: 93: , DL eKSVMSRAS eas tot. 8 emma BLI;1 ~~ «aS 


183 Or = co ! of module EDTSWFRBUKT 


PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 81 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


: wet eccce Symbols woeeoecn Pages Processing 

3 File Total Loaded Percent Mapped Time 

; 55$DUA28: (EDT. SRCJEDT.L32;1 377 ‘ 1 40 00: 00.2 

: _$255$0UA28: iA! he 5 BE 2 1 50 7 00: yf 

3 Bitten 8: CSYSLIBIJSTARLET.L32;1 9776 1 0 581 00:04.1 

3 COMMAND QUALIFIERS 

3 FL ESS/CHECK* (FIELD, INITIAL .OPTIAIZE) /WOTRACEBACE/L 1591 198107 REUKT/OBJ20BIS (UF ROUT MSRC$:WFRBUKT.BLI/UPDATE=(ENHS: WF RBUKT 

3; Size: 81 code + 0 data bytes : 
; Run Time: :15.7 . 
; Elapsed Time: :22.7 ° 
3; Lines/CPU Min: 9 4 
3 Lexemes/CPU-Min: 7695 ; 
; Memory Used: 76 pages ' 
; Compication Complete 


' 
| 
Library Statistics 
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